home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / intuition / Menu.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  6.3 KB  |  260 lines
  1. "---------------------------------------------------"
  2. " Menu Class implements control of Amiga Menus      "
  3. " except for actually displaying it, which is in the"
  4. " Window class.                                     "
  5. "---------------------------------------------------"
  6.  
  7. Class Menu :Glyph
  8. ! 
  9.    private nextMenu leftEdge topEdge width height flags menuName firstItem
  10. !
  11. [
  12.    getMenu
  13.       ^ private
  14. |
  15.    getStartPoint
  16.       leftEdge <- <primitive 182 2 0 0 private>.
  17.       topEdge  <- <primitive 182 2 1 0 private>.
  18.       ^ leftEdge @ topEdge
  19. |
  20.    getMenuSize
  21.       width  <- <primitive 182 2 2 0 private>.
  22.       height <- <primitive 182 2 3 0 private>.
  23.       ^ width @ height
  24. |
  25.    setStartPoint: newPoint ! x y !
  26.       x <- newPoint x.
  27.       y <- newPoint y.
  28.       <primitive 182 3 0 x 0 private>.      
  29.       <primitive 182 3 1 y 0 private>.
  30.       leftEdge <- x.
  31.       topEdge  <- y
  32. |
  33.    setMenuSize: sizePoint ! w h !
  34.       w <- sizePoint x.
  35.       h <- sizePoint y.
  36.       <primitive 182 3 2 w 0 private>.
  37.       <primitive 182 3 3 h 0 private>.
  38.       width  <- w.
  39.       height <- h
  40. |
  41.    dispose
  42.       <primitive 182 0 0 private>.
  43.       ^ nil
  44. |
  45.    getFlags
  46.       ^ flags <- <primitive 182 2 4 0 private>
  47. |
  48.    setFlags: newFlags
  49.       <primitive 182 3 4 newFlags 0 private>.
  50.       flags <- newFlags
  51. |
  52.    getNextMenu
  53.       ^ nextMenu <- <primitive 182 2 8 0 private>
  54. |
  55.    setNextMenu: newNextMenu
  56.       <primitive 182 3 8 newNextMenu 0 private>.
  57.       nextMenu <- newNextMenu
  58. |
  59.    getFirstItem
  60.       ^ firstItem <- <primitive 182 2 9 0 private>
  61. |
  62.    setFirstItem: newFirstItem
  63.       <primitive 182 3 9 newFirstItem 0 private>.
  64.       firstItem <- newFirstItem
  65. |
  66.    getMenuName
  67.       ^ menuName <- <primitive 182 2 13 0 private>
  68. |
  69.    setMenuName: newMenuName
  70.       <primitive 182 3 13 newMenuName 0 private>.
  71.       menuName <- newMenuName
  72. |
  73.    new: newMenuName
  74.       private  <- <primitive 182 1 0 newMenuName>.
  75.       menuName <- newMenuName.
  76.       ^ self
  77. ]
  78.  
  79. Class MenuItem :Menu
  80. ! 
  81.    private    nextItem      leftEdge topEdge    width    height 
  82.    flags      mutualExclude itemFill selectFill command  subItem 
  83.    nextSelect itemName
  84. !
  85. [
  86.    getMenuItem
  87.       ^ private
  88. |
  89.    dispose
  90.       <primitive 182 0 1 private>.
  91.       ^ nil
  92. |
  93.    getStartPoint
  94.       leftEdge <- <primitive 182 2 0 1 private>.
  95.       topEdge  <- <primitive 182 2 1 1 private>.
  96.       ^ leftEdge @ topEdge
  97. |
  98.    getItemSize
  99.       width  <- <primitive 182 2 2 1 private>.
  100.       height <- <primitive 182 2 3 1 private>.
  101.       ^ width @ height
  102. |
  103.    setStartPoint: newPoint ! x y !
  104.       x <- newPoint x.
  105.       y <- newPoint y.
  106.       <primitive 182 3 0 x 1 private>.
  107.       <primitive 182 3 1 y 1 private>.
  108.       leftEdge <- x.
  109.       topEdge  <- y
  110. |
  111.    setItemSize: sizePoint ! w h !
  112.       w <- sizePoint x.
  113.       h <- sizePoint y.
  114.       <primitive 182 3 2 w 1 private>.
  115.       <primitive 182 3 3 h 1 private>.
  116.       width  <- w.
  117.       height <- h
  118. |
  119.    getFlags
  120.       ^ flags <- <primitive 182 2 4 1 private>
  121. |
  122.    setFlags: newFlags
  123.       <primitive 182 3 4 newFlags 1 private>.
  124.       flags <- newFlags
  125. |
  126.    getMutualExclude
  127.       ^ mutualExclude <- <primitive 182 2 5 1 private>
  128. |
  129.    setMutualExclude: newMutualExclude
  130.       <primitive 182 3 5 newMutualExclude 1 private>.
  131.       mutualExclude <- newMutualExclude
  132. |
  133.    getCommand
  134.       ^ command <- <primitive 182 2 6 1 private>
  135. |
  136.    setCommand: newCommand
  137.       <primitive 182 3 6 newCommand 1 private>.
  138.       command <- newCommand
  139. |
  140.    getNextItem
  141.       ^ nextItem <- <primitive 182 2 7 1 private>
  142. |
  143.    setNextItem: newNextItem
  144.       <primitive 182 3 7 newNextItem 1 private>.
  145.       nextItem <- newNextItem
  146. |
  147.    getItemFill
  148.       ^ itemFill <- <primitive 182 2 10 1 private>
  149. |
  150.    setItemFill: newItemFill
  151.       <primitive 182 3 10 newItemFill 1 private>.
  152.       itemFill <- newItemFill
  153. |
  154.    getSelectFill
  155.       ^ selectFill <- <primitive 182 2 11 1 private>
  156. |
  157.    setSelectFill: newSelectFill
  158.       <primitive 182 3 11 newSelectFill 1 private>.
  159.       selectFill <- newSelectFill
  160. |
  161.    getSubItem
  162.       ^ subItem <- <primitive 182 2 12 1 private>
  163. |
  164.    setSubItem: newSubItem
  165.       <primitive 182 3 12 newSubItem 1 private>.
  166.       subItem <- newSubItem
  167. |
  168.    new: newItemName
  169.       private  <- <primitive 182 1 1 newItemName>.
  170.       itemName <- newItemName.
  171.       ^ self
  172. ]
  173.  
  174. Class SubItem :MenuItem
  175. ! 
  176.    private       nextItem leftEdge   topEdge width      height      flags 
  177.    mutualExclude itemFill selectFill command nextSelect subItemName
  178. !
  179. [
  180.    getSubItem
  181.       ^ private
  182. |
  183.    dispose
  184.       <primitive 182 0 2 private>.
  185.       ^ nil
  186. |
  187.    getStartPoint
  188.       leftEdge <- <primitive 182 2 0 2 private>.
  189.       topEdge  <- <primitive 182 2 1 2 private>.
  190.       ^ leftEdge @ topEdge
  191. |
  192.    getSubSize
  193.       width  <- <primitive 182 2 2 2 private>.
  194.       height <- <primitive 182 2 3 2 private>.
  195.       ^ width @ height
  196. |
  197.    setStartPoint: newPoint ! x y !
  198.       x <- newPoint x.
  199.       y <- newPoint y.
  200.       <primitive 182 3 0 x 2 private>.
  201.       <primitive 182 3 1 y 2 private>.
  202.       leftEdge <- x.
  203.       topEdge  <- y
  204. |
  205.    setSubSize: sizePoint ! w h ! 
  206.       w <- sizePoint x.
  207.       h <- sizePoint y.
  208.       <primitive 182 3 2 w 2 private>.
  209.       <primitive 182 3 3 h 2 private>.
  210.       width  <- w.
  211.       height <- h
  212. |
  213.    getFlags
  214.       ^ flags <- <primitive 182 2 4 2 private>
  215. |
  216.    setFlags: newFlags
  217.       <primitive 182 3 4 newFlags 2 private>.
  218.       flags <- newFlags
  219. |
  220.    getMutualExclude
  221.       ^ mutualExclude <- <primitive 182 2 5 2 private>
  222. |
  223.    setMutualExclude: newMutualExclude
  224.       <primitive 182 3 5 newMutualExclude 2 private>.
  225.       mutualExclude <- newMutualExclude
  226. |
  227.    getCommand
  228.       ^ command <- <primitive 182 2 6 2 private>
  229. |
  230.    setCommand: newCommand
  231.       <primitive 182 3 6 newCommand 2 private>.
  232.       command <- newCommand
  233. |
  234.    getNextItem
  235.       ^ nextItem <- <primitive 182 2 7 2 private>
  236. |
  237.    setNextItem: newNextItem
  238.       <primitive 182 3 7 newNextItem 2 private>.
  239.       nextItem <- newNextItem
  240. |
  241.    getItemFill
  242.       ^ itemFill <- <primitive 182 2 10 2 private>
  243. |
  244.    setItemFill: newItemFill
  245.       <primitive 182 3 10 newItemFill 2 private>.
  246.       itemFill <- newItemFill
  247. |
  248.    getSelectFill
  249.       ^ selectFill <- <primitive 182 2 11 2 private>
  250. |
  251.    setSelectFill: newSelectFill
  252.       <primitive 182 3 11 newSelectFill 2 private>.
  253.       selectFill <- newSelectFill
  254. |
  255.    new: newSubItemName
  256.       private     <- <primitive 182 1 2 newSubItemName>.
  257.       subItemName <- newSubItemName.
  258.       ^ self
  259. ]
  260.